﻿Public Class EMPLEADOS
    Dim rs As ADODB.Recordset 'CREAMO UN OBJETO RS DE TIPO ADO PARA LA CONECCION
    Dim sql As String ' CREAMOS UN VALOR SQL DE TIPO CADENA PARA LOS DIEFRENTES PROCESOS DE CONECCION(INSERTAR Y SELECIONAR PARA CONSULTA)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sql = "SELECT EMPLEADOS.CODI_EMPLEADO, EMPLEADOS.PATE_EMPLEADO, EMPLEADOS.MATE_EMPLEADO, EMPLEADOS.NOMBRE_EMPLEADO, CARGO.CARGO, CARGO.SUELDO FROM (EMPLEADOS INNER JOIN CARGO ON EMPLEADOS.CODI_CARGO = CARGO.CODI_CARGO) WHERE (EMPLEADOS.CODI_EMPLEADO = '" & txtCodigo.Text & "')"
        'PERMITE OBTENER TODOS LOS DATOS REQUERIDOS DE LA TABLA EMPLEADO SEGUN EL CODIGO EMPLEADO PARA DICHA CONSULTA
        rs = coneccion.Execute(sql) 'PERMITE EJEUCTAR LA CONECCION
        If rs.EOF <> True Then 'ESTO NOS DA UN VALOR BOOLEANO DE TIPO FALSO  MIENTRAS QUE EXISTA LOS DATOS CONSULTADOS
            rs.MoveFirst() 'NOS PERMITE MOVER EL PRIMER REGISTRO Y LEERLO 
            DataGridView1.Rows.Add(rs.Fields(0).Value.ToString, rs.Fields(1).Value.ToString, rs.Fields(2).Value.ToString, rs.Fields(3).Value.ToString, rs.Fields(4).Value.ToString, rs.Fields(5).Value.ToString)
            'PERMITE MOSTRAR LOS DATOS DELA TABLA UTILIZANDO DATAGRIDVIEW UTILIZANDO SU METODO DE LLENADO MEDIANTE FILAS Y DENTRO DE AHI ADJUNTANDOLOS MEDIANTE COLUMNAS POR EL METODO FIELDS(COLUMNA)
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dispose() 'PERMITE LA DISPOSICION DE QUE CADA EMPLEADO DE LA CONSULTA
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        txtCodigo.Text = "" 'LIMPIA EL TEXTO DEL CODIGO INGRESADO
    End Sub
End Class